VERSION 5.00
Object = "{626333F0-2712-44F7-AE40-FE533189137E}#8.0#0"; "UnicodeFullControl.ocx"
Begin VB.MDIForm MDIForm1 
   Appearance      =   0  'Flat
   BackColor       =   &H00C0C0C0&
   Caption         =   "QuanLyThuChi"
   ClientHeight    =   8580
   ClientLeft      =   225
   ClientTop       =   555
   ClientWidth     =   13530
   Icon            =   "MDIFrmmain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIFrmmain.frx":8D25A
   StartUpPosition =   2  'CenterScreen
   Begin UnicodeControl.UniTitleBar UniTitleBar1 
      Left            =   120
      Top             =   600
      _ExtentX        =   661
      _ExtentY        =   609
      Caption         =   "MDIFrmmain.frx":99917
      Languages       =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   12.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Icon            =   "MDIFrmmain.frx":99955
      IconLarge       =   "MDIFrmmain.frx":9996D
      DrawBar         =   0   'False
   End
   Begin UnicodeControl.UniStatusBar UniStatusBar1 
      Align           =   2  'Align Bottom
      Height          =   495
      Left            =   0
      Top             =   8085
      Width           =   13530
      _ExtentX        =   23865
      _ExtentY        =   873
      BackColor       =   -2147483636
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Count           =   1
      PanelAlign1     =   0
      PanelText1      =   "MDIFrmmain.frx":99985
      PanelIconIndex1 =   -1
      PanelType1      =   0
      Style           =   1
      Begin UnicodeControl.UniLabel ngayhientai 
         Height          =   405
         Left            =   1560
         TabIndex        =   1
         Top             =   120
         Width           =   1185
         _ExtentX        =   2090
         _ExtentY        =   714
         ForeColor       =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   14.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BackStyle       =   0
         BorderStyle     =   0
         AutoSize        =   -1  'True
         Caption         =   "MDIFrmmain.frx":999B1
         Link            =   "myspecialbox@yahoo.com.vn"
         BackColor       =   -2147483635
         ForeColorWordEffect=   0
         SpeedOrtherColor=   0
         UniToolTipText  =   "MDIFrmmain.frx":999E1
         Picture         =   "MDIFrmmain.frx":999F9
         PictureType     =   0
      End
      Begin UnicodeControl.UniLabel UniLabel1 
         Height          =   405
         Left            =   120
         TabIndex        =   0
         Top             =   120
         Width           =   1380
         _ExtentX        =   2434
         _ExtentY        =   714
         ForeColor       =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   14.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BackStyle       =   0
         BorderStyle     =   0
         AutoSize        =   -1  'True
         Languages       =   1
         Caption         =   "MDIFrmmain.frx":99A11
         Link            =   "myspecialbox@yahoo.com.vn"
         BackColor       =   -2147483635
         ForeColorWordEffect=   0
         SpeedOrtherColor=   0
         UniToolTipText  =   "MDIFrmmain.frx":99A43
         Picture         =   "MDIFrmmain.frx":99A5B
         PictureType     =   0
      End
   End
   Begin UnicodeControl.UniMenu UniMenu1 
      Left            =   360
      Top             =   960
      _ExtentX        =   1244
      _ExtentY        =   529
      StyleMenu       =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Languages       =   1
      MenuForeColor   =   0
      IconCount       =   0
      CustomSystemMenu=   -1  'True
      TextRestore     =   "MDIFrmmain.frx":99A73
      TextClose       =   "MDIFrmmain.frx":99AA3
      TextMove        =   "MDIFrmmain.frx":99ACF
      TextSize        =   "MDIFrmmain.frx":99AF9
      TextMinimize    =   "MDIFrmmain.frx":99B23
      TextMaximize    =   "MDIFrmmain.frx":99B55
      TextNextWindow  =   "MDIFrmmain.frx":99B87
   End
   Begin VB.Menu cmdthu 
      Caption         =   "[telex]Quarn Lys Thu"
   End
   Begin VB.Menu cmdchi 
      Caption         =   "[telex]Quarn Lys Chi"
   End
   Begin VB.Menu cmdthanhvien 
      Caption         =   "[telex]Quarn Lys Thafnh Vieen"
   End
   Begin VB.Menu cmdthongtin 
      Caption         =   "[telex]Thoong tin"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdchi_Click()
    'Formchi.Show vbModal
    Formchi.Width = 13200
    Formchi.Height = Me.Height
End Sub

Private Sub cmdthu_Click()
    'Form1.Show vbModal
    Form1.Width = 13200
    Form1.Height = Me.Height
End Sub

Private Sub MDIForm_Load()
    Call Module1.ConnecDB
   ' Call View_thu
    'lbltongthungay.Caption = Form1.lbltongthu.Caption
    ngayhientai.Caption = Format(DateSerial(Year(Now), Month(Now), Day(Now)), "dd/mm/yyyy")
    
End Sub
Private Sub View_thu()
    'Call Module1.ConnecDB
    thangnam = Format(DateSerial(Year(Now), Month(Now), Day(Now)), "mm/yyyy")
    rs.Open "select sum(khoanthu) as tongthu from tblthu where format(ngaythu, 'dd/mm/yyyy') = '" & thangnam & "'", db
    lbltongthungay.Caption = rs!tongthu & "  VND"
    rs.Close
End Sub

